home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 009 / sysop.arc / SYSOP.BAS (.txt) next >
Encoding:
GW-BASIC  |  1985-04-12  |  896 b   |  16 lines
  1. 10  SCREEN 2:CLS:KEY OFF
  2. 20  DEFINT A-Z:DIM A(10000)
  3. 30  BLOAD"sysop.pic",VARPTR(A(0))
  4. 40  PUT (0,0),A
  5. 130  PLAY"T125 MB O3 F4O2A8O3D4C4O2B4G8B8O3D8G4F4E4.C4O2B4A8"
  6. 140  PLAY"o3 f4e4d4c4d4 o2 f8b-4a4g+4e8g+8b8o3d8o2b8g+8e8o3d8o2e8o3c+8e2.o2b4.o3c+4e4"
  7. 150  PLAY"mf o4f8f8f8f4o3a8a4b8b4o2d4g4o4e8e8e8e4c4f4e4d4c4"
  8. 160  PLAY"o4 d8d8d8d4o3f4e2o4d2d4c+8e2.o2p8b4.o3c+4e4o4f8f8f8f4o3a4a4b4.o2g8d8o1g8"
  9. 170  PLAY"o4e8e8e8e8e4c8f4f8e4c4o3a4o4d8d8d8d4o3f4e2o4d2d8o3b8o4c+8mle2e8mno2p8b4.o3c+4e4"
  10. 180  PLAY"o4a8a8a8a4a8a8a8a4g+4g+4f+4e4.mlc+8c+2mno1a4e8p8o0e8o4c+8c+8c+8c+4d2"
  11. 190  PLAY"o3e8e4f+2a8b8o4c+8o1a8o3g+4a4o4e4.o2c+8o3g+4a4o4e4.o4a8a8a8a4a8a8a8a4g+4g+4f+4mle2e4.mnc+8f+2o2a+64o3e64f+4.o4c+8"
  12. 200  PLAY"o4d4d8d4e4f+4o3f+4d2o4c+8d4d8d4e4f+8"
  13. 210  PLAY"o1b2o4c+8d8c+8o3a8a8o1a8o2f+8a8o3e4d4.c+4.o0a8o1c+2"
  14. 220  PLAY"o1b2o4c+8d8c+8o3a8a8o1a8o2f+8a8o3e4d4.c+4o1a4e4o0mla4a1mn"
  15. 230  CLS:END
  16.